home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_037_19xx_-_de_Side_B.d64
/
disk ganz loesch
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
50 lines
1000 input"[147][204]aufwerksnummer der 1541/1571 8[157][157][157]";a$:dn=val(a$):
1010 ifdn<8ordn>30then1000
1020 print"[147][196]ieses [208]rogramm loescht alle [196]aten auf
1030 [153]"der eingelegten str$isk, sodass kein
1040 print"einziger magnetischer [210]ichtungswechsel
1050 [153]"verbleibt. str$ies ist wichtig beim
1060 print"[194]eschreiben der [196]isk mit einem 80-[211]pur
1070 [153]"((NULL)len-) (NULL)aufwerk und anschliessendem
1080 print"[204]esen der [196]isk mit einem 40-[211]pur [204]auf-
1090 [153]"werk, wie die 1541/1571. str$ie (NULL)purbreite
1100 print"des 80-[212]rack-[204]w ist nur halb so gross
1110 [153]"wie bei 40 (NULL)racks, sodass der breitere
1120 print"40-[212]rack [203]opf auch die falschen seit-
1130 [153]"lich liegenden magnetischen (NULL)ichtungs-
1140 print"wechsel lesen wuerde.
1150 [153]"peekeide (NULL)eiten muessen getrennt geloescht
1160 print"werden.
1170 [159]15,dn,15,"u0>m0
1180 reada:ifa>=0thenprint#15,"m-w"chr$(i)chr$(4)chr$(1)chr$(a);
1190 ifa>=0thenpoke49152+i,a:i=i+1:goto1180
1200 print"<[212]aste>":poke198,0:wait198,1:geta$
1210 print"[147][198]reeware von
1220 [153]"(NULL)ear (NULL)etter (NULL)uantity
1230 print"[202]ochen [193]dler
1240 [153]"left$aeldestr.11
1250 print"[196]-74912 [203]irchardt
1260 [153]"fuer
1270 print"[210]ockford-[198][196] [211]erie
1280 [153]"atnlex (NULL)(NULL)(NULL)
1290 print"[193]mselweg 1
1300 [153]"str$-85293 (NULL)eichertshausen
1310 print"[199]eben [211]ie 'zerstoeren' ein, wenn [211]ie
1320 [153]"sicher sind, dass alle str$aten auf der
1330 print"eingelegten [196]isk geloescht werden koen- nen
1340 [153]"!!str$eletes all str$atas on str$isk!!
1350 inputa$:ifa$<>"zerstoeren"thenstop:goto1310
1360 print#15,"m-e"chr$(0)chr$(4);
1370 close15:open15,dn,15
1380 print"[206]ochmal? (j/n)":wait198,1:geta$:ifa$<>"j"anda$<>"n"then1380
1390 ifa$="j"then1310
1400 rem--------------------------------
1410 data173,0,28,9,8,141,0,28,165,34,208,4,169,18,133,34,169,41,133,6,169,128
1420 data133,0,165,0,48,252,169,1,133,6,169,128,133,0,165,0,48,252,169,79,141
1430 data255,4,173,0,28,41,252,141,0,28,120,169,255,141,3,28,173,12,28,41,31
1440 data9,192,141,12,28,169,0,141,1,28,162,170,160,255,136,208,253,202,208
1450 data250,173,12,28,9,224,141,12,28,169,0,141,3,28,136,208,253,174,0,28,232
1460 data138,41,3,133,75,173,0,28,41,252,5,75,73,8,141,0,28,162,48,136,208,253
1470 data202,208,250,206,255,4,16,175,169,41,133,34,173,0,28,41,247,141,0,28
1480 data96,-1